Technotools/Technotools (Chestnut CD-ROM)(1993).ISO/lang_c/morrison/dir.m

Text File | 1988-07-27 | 23KB | 1,079 lines

;**---------------------------------------------------------------------------
;**
;**                                   DIR Macro
;**
;**---------------------------------------------------------------------------
;**
;**        This macro is designed to operate simular to the menus seen in
;**        the popular NORTON COMMANDER program.  You can go UP or DOWN the
;**        tree structure on the disk by moving the cursor over the proper
;**        <DIR> entry in the directory and hitting the <Enter> key.
;**
;**        If the <Enter> key is hit and a file (instead of a directory
;**        <DIR> entry) is highlighted then this file will be loaded into
;**        BRIEF and be ready for editing.
;**
;**        The <Ins> or <Space> key will TOGGLE the file marker for the
;**        file that is currently highlighted.  <DIR> files MAY NOT BE
;**        marked as they can not be edited.  After having marked one or
;**        more (as many as you like) you can then have ALL of the MARKED
;**        files loaded into BRIEF by hitting the <Alt-L> key.
;**
;**        If you do NOT wish to edit any files, simply hit the <Esc> key
;**        and you will be back editing the file that you started with.
;**
;**        The <Home>, <End>, <Up>, <Down>, <PgUp>, and <PgDn> keys are
;**        used to move you around within the directory.
;**
;**        Written BY:  Robert H. Morrison, 1 July 1988
;**                     Karlsruhe, West Germany
;**
;**        Last Update: 6 July 1988
;**
;*****************************************************************************

#define        LINE        3
#define        SYSTEM        1

#define        UP_DIR        ".."
#define        DOWN_DIR      ".\\"

#define        SELECT        1
#define        UNSELECT    2

#define        ALT_KEY        8

#include    "dialog.h"


(macro     _init
    (
        (int    mark_typ
                updir
                alt_done
                rows
                cols
        )

        (string    new_file
                bhelp
                bdirfile
                bdirpgm
                bdiropt
                bdirtxt
                old_opt
                select
                unselect
                alt_search
                bdir
        )

        (global    new_file
                bhelp
                bdirfile
                bdirpgm
                bdiropt
                bdirtxt
                old_opt
                select
                unselect
                alt_search
                alt_done
                bdir
                mark_typ
                updir
                rows
                cols
        )

        (= alt_search "\<■\|  ")
        (= alt_done FALSE)
        (= bhelp (lower (inq_environment "BHELP")))
        (if (!= bhelp "")
            (+= bhelp "\\")
        )
        (= bdiropt "F")
        (= bdirfile (+ bhelp "temp.dir"))
        (= bdirpgm (+ bhelp "bmakedir.exe"))
        (= bdirtxt (+ bhelp "bmakedir.txt"))
        (= bdir (+ bdirpgm (+ (+ " \-" bdiropt) (+ " \>&" bdirfile))))
        (inq_screen_size rows cols)
        (-= rows 10)
        (-= cols 42)
        (/= cols 2)
    )
)


(macro    dir
    (
        (extern    to_bottom
                display_file_name
        )

        (int    dir_buffer
                old_buffer
                dir_window
                old_window
                end_line
                line
        )

        (string    temp
                this_line
                current_dir
                current_drive
                answer
        )

        (global    end_line
                this_line
                line
                old_buffer
                dir_buffer
                current_dir
                current_drive
                answer
        )


        (= new_file "")
        (message "Reading disk directory...")
        (dos bdir)
        (= old_buffer (inq_buffer))
        (= dir_buffer (create_buffer "DIR Ver 1.00" bdirtxt SYSTEM))
        (create_window cols (+ rows 4) (+ cols 42) 3 "Ins - + Enter F1 F2 F4 F7 F8 F9 F10 Esc")
        (attach_buffer dir_buffer)
        (set_buffer dir_buffer)
        (getwd NULL current_dir)
        (= current_dir (upper current_dir))
        (= current_drive (substr current_dir 1 1))
        (top_of_buffer)
        (read_file bdirfile)
        (up)
        (inq_position end_line NULL)
        (top_of_buffer)

        (keyboard_push)
        (assign_to_key "<Space>" "no_beep")
        (assign_to_key "<Enter>" "select_dir")
        (assign_to_key "<Home>" "top_of_dir")
        (assign_to_key "<End>" "end_of_dir")
        (assign_to_key "<Up>" "up_dir")
        (assign_to_key "<Down>" "down_dir")
        (assign_to_key "<PgUp>" "pgup_dir")
        (assign_to_key "<PgDn>" "pgdown_dir")
        (assign_to_key "<Ins>" "mark_dir")
        (assign_to_key "<Ctrl-PgUp>" "up_1_dir")
        (assign_to_key "<F1>" "help_dir")
        (assign_to_key "<F2>" "change_drive")
        (assign_to_key "<F4>" "load_marked")
        (assign_to_key "<F7>" "make_dir")
        (assign_to_key "<F8>" "delete_file")
        (assign_to_key "<F9>" "set_mode")
        (assign_to_key "<F10>" "_exit")
        (assign_to_key "<Esc>" "_exit")
        (assign_to_key "<Ctrl-\\>" "root_dir")
        (assign_to_key "<\\>" "root_dir")
        (assign_to_key "<Ctrl-R>" "read_dir")
        (assign_to_key "<Keypad-minus>" "unselect_marks")
        (assign_to_key "<Keypad-plus>" "select_marks")
        (assign_to_key "<Alt-a>" "NC_alt_search a")
        (assign_to_key "<Alt-b>" "NC_alt_search b")
        (assign_to_key "<Alt-c>" "NC_alt_search c")
        (assign_to_key "<Alt-d>" "NC_alt_search d")
        (assign_to_key "<Alt-e>" "NC_alt_search e")
        (assign_to_key "<Alt-f>" "NC_alt_search f")
        (assign_to_key "<Alt-g>" "NC_alt_search g")
        (assign_to_key "<Alt-h>" "NC_alt_search h")
        (assign_to_key "<Alt-i>" "NC_alt_search i")
        (assign_to_key "<Alt-j>" "NC_alt_search j")
        (assign_to_key "<Alt-k>" "NC_alt_search k")
        (assign_to_key "<Alt-l>" "NC_alt_search l")
        (assign_to_key "<Alt-m>" "NC_alt_search m")
        (assign_to_key "<Alt-n>" "NC_alt_search n")
        (assign_to_key "<Alt-o>" "NC_alt_search o")
        (assign_to_key "<Alt-p>" "NC_alt_search p")
        (assign_to_key "<Alt-q>" "NC_alt_search q")
        (assign_to_key "<Alt-r>" "NC_alt_search r")
        (assign_to_key "<Alt-s>" "NC_alt_search s")
        (assign_to_key "<Alt-t>" "NC_alt_search t")
        (assign_to_key "<Alt-u>" "NC_alt_search u")
        (assign_to_key "<Alt-v>" "NC_alt_search v")
        (assign_to_key "<Alt-w>" "NC_alt_search w")
        (assign_to_key "<Alt-x>" "NC_alt_search x")
        (assign_to_key "<Alt-y>" "NC_alt_search y")
        (assign_to_key "<Alt-z>" "NC_alt_search z")
        (assign_to_key "<Alt-_>" "NC_alt_search _")
        (assign_to_key "<Alt-0>" "NC_alt_search 0")
        (assign_to_key "<Alt-1>" "NC_alt_search 1")
        (assign_to_key "<Alt-2>" "NC_alt_search 2")
        (assign_to_key "<Alt-3>" "NC_alt_search 3")
        (assign_to_key "<Alt-4>" "NC_alt_search 4")
        (assign_to_key "<Alt-5>" "NC_alt_search 5")
        (assign_to_key "<Alt-6>" "NC_alt_search 6")
        (assign_to_key "<Alt-7>" "NC_alt_search 7")
        (assign_to_key "<Alt-8>" "NC_alt_search 8")
        (assign_to_key "<Alt-9>" "NC_alt_search 9")

        (drop_anchor LINE)
        (message "%s" current_dir)
        (refresh)

        (process)

        (keyboard_pop)
        (delete_window)
        (if (!= new_file "")
            (
                (if (!= new_file "Load Multiple Files")
                    (
                        (message "Loading \"%s\" for editing..." new_file)
                        (edit_file new_file)
                        (= old_buffer (inq_buffer))
                    )
                ;else
                    (
                        (top_of_buffer)
                        (while (search_fwd "<\\c■")
                            (
                                (= this_line (read))
                                (down)
                                (= new_file (trim (substr this_line 3 8)))
                                (+= new_file (+ "." (trim (substr this_line 12 3))))
                                (message "Loading \"%s\" for editing..." new_file)
                                (edit_file new_file)
                                (= old_buffer (inq_buffer))
                                (set_buffer dir_buffer)
                            )
                        )
                    )
                )
            )
        )
        (set_buffer old_buffer)
        (delete_buffer dir_buffer)
        (display_file_name)
    )
)


(macro no_beep
    (
        (return)
    )
)


(macro end_NC_alt
    (
        (get_parm 0 alt_search)
        (exit)
    )
)


(macro NC_alt_search
    (
        (extern _do_beep)

        (int    alt_line)

        (string alt_char)

        (keyboard_push)
        (assign_to_key "<Enter>" "end_NC_alt <Enter>")
        (assign_to_key "<Home>" "end_NC_alt <Home>")
        (assign_to_key "<End>" "end_NC_alt <End>")
        (assign_to_key "<Up>" "end_NC_alt <Up>")
        (assign_to_key "<Down>" "end_NC_alt <Down>")
        (assign_to_key "<PgUp>" "end_NC_alt <PgUp>")
        (assign_to_key "<PgDn>" "end_NC_alt <PgDn>")
        (assign_to_key "<Ins>" "end_NC_alt <Ins>")
        (assign_to_key "<Ctrl-PgUp>" "end_NC_alt <Ctrl-PgUp>")
        (assign_to_key "<F1>" "end_NC_alt <F1>")
        (assign_to_key "<F2>" "end_NC_alt <F2>")
        (assign_to_key "<F4>" "end_NC_alt <F4>")
        (assign_to_key "<F7>" "end_NC_alt <F7>")
        (assign_to_key "<F8>" "end_NC_alt <F8>")
        (assign_to_key "<F9>" "end_NC_alt <F9>")
        (assign_to_key "<F10>" "end_NC_alt <F10>")
        (assign_to_key "<Esc>" "end_NC_alt <Esc>")
        (assign_to_key "<Ctrl-\\>" "end_NC_alt <Ctrl-\\>")
        (assign_to_key "<\\>" "end_NC_alt <\\>")
        (assign_to_key "<Ctrl-R>" "end_NC_alt <Ctrl-R>")
        (assign_to_key "<Keypad-minus>" "end_NC_alt <Keypad-minus>")
        (assign_to_key "<Keypad-plus>" "end_NC_alt <Keypad-plus>")
        (assign_to_key "<Alt-a>" "NC_alt a")
        (assign_to_key "<Alt-b>" "NC_alt b")
        (assign_to_key "<Alt-c>" "NC_alt c")
        (assign_to_key "<Alt-d>" "NC_alt d")
        (assign_to_key "<Alt-e>" "NC_alt e")
        (assign_to_key "<Alt-f>" "NC_alt f")
        (assign_to_key "<Alt-g>" "NC_alt g")
        (assign_to_key "<Alt-h>" "NC_alt h")
        (assign_to_key "<Alt-i>" "NC_alt i")
        (assign_to_key "<Alt-j>" "NC_alt j")
        (assign_to_key "<Alt-k>" "NC_alt k")
        (assign_to_key "<Alt-l>" "NC_alt l")
        (assign_to_key "<Alt-m>" "NC_alt m")
        (assign_to_key "<Alt-n>" "NC_alt n")
        (assign_to_key "<Alt-o>" "NC_alt o")
        (assign_to_key "<Alt-p>" "NC_alt p")
        (assign_to_key "<Alt-q>" "NC_alt q")
        (assign_to_key "<Alt-r>" "NC_alt r")
        (assign_to_key "<Alt-s>" "NC_alt s")
        (assign_to_key "<Alt-t>" "NC_alt t")
        (assign_to_key "<Alt-u>" "NC_alt u")
        (assign_to_key "<Alt-v>" "NC_alt v")
        (assign_to_key "<Alt-w>" "NC_alt w")
        (assign_to_key "<Alt-x>" "NC_alt x")
        (assign_to_key "<Alt-y>" "NC_alt y")
        (assign_to_key "<Alt-z>" "NC_alt z")
        (assign_to_key "<Alt-_>" "NC_alt _")
        (assign_to_key "<Alt-0>" "NC_alt 0")
        (assign_to_key "<Alt-1>" "NC_alt 1")
        (assign_to_key "<Alt-2>" "NC_alt 2")
        (assign_to_key "<Alt-3>" "NC_alt 3")
        (assign_to_key "<Alt-4>" "NC_alt 4")
        (assign_to_key "<Alt-5>" "NC_alt 5")
        (assign_to_key "<Alt-6>" "NC_alt 6")
        (assign_to_key "<Alt-7>" "NC_alt 7")
        (assign_to_key "<Alt-8>" "NC_alt 8")
        (assign_to_key "<Alt-9>" "NC_alt 9")

        (unregister_macro 3 "_do_beep")
        (register_macro 3 "end_NC_alt")

        (= alt_done FALSE)
        (inq_position line NULL)
        (top_of_buffer)
        (get_parm 0 alt_char)
        (NC_alt alt_char)

        (process)

        (keyboard_pop)
        (register_macro 3 "_do_beep")
        (unregister_macro 3 "end_NC_alt")

        (push_back (key_to_int alt_search))
        (= alt_search "\<■\|  ")
    )
)


(macro NC_alt
    (
        (string alt_char)

        (if (! alt_done)
            (
                (get_parm 0 alt_char "" 1)

                (raise_anchor)

                (+= alt_search alt_char)

                (message "Searching DIR for \"%s\".\*" (substr alt_search 6))

                (if (search_fwd alt_search TRUE FALSE FALSE)
                    (inq_position line NULL)
                ;else
                    (= alt_done TRUE)
                )

                (message "%s" current_dir)

                (move_abs line 1)
                (drop_anchor LINE)
                (refresh)
            )
        )

        (while (! (inq_kbd_char))
            (
                (if (! (& (inq_kbd_flags) ALT_KEY))
                    (
                        (execute_macro "end_NC_alt <Space>")
                        (break)
                    )
                )
            )
        )

    )
)


(macro    change_drive
    (
        (= current_drive "?")
        (= new_file "Change Drive")
        (while (&& (!= current_drive "") (|| (< current_drive "A") (> current_drive "Z")))
            (
                (if (!= current_drive "?")
                    (beep)
                )
                (= current_drive "")
                (get_parm NULL current_drive "Input New Drive Letter? " 1)
                (if (== current_drive "?")
                    (beep)
                )
                (= current_drive (upper current_drive))
            )
        )
        (if (&& (>= current_drive "A") (<= current_drive "Z"))
            (select_dir)
        ;else
            (
                (message "%s" current_dir)
                (= current_drive (substr current_dir 1 1))
                (= new_file "")
            )
        )
    )
)


(macro    make_dir
    (
        (string    subdir)

        (get_parm NULL subdir "Name of SUB-DIR? " 12)
        (if (!= subdir "")
            (
                (= new_file "Change Drive")
                (= subdir (upper subdir))
                (message "Creating SUB-DIR \"%s\"..." subdir)
                (if (dos (+ (+ "md " subdir) "\>\&tempmdir.err"))
                    (error "Unable to create %s SUB-DIR." (+ DOWN_DIR subdir))
                ;else
                    (
                        (del "tempmdir.err")
                        (select_dir)
                    )
                )
            )
        ;else
            (message "%s" current_dir)
        )
    )
)


(macro    help_dir
    (
        (extern display_help)

        (display_help "dir")
        (message "%s" current_dir)
        (keyboard_flush)
    )
)


(macro    read_dir
    (
        (= new_file "Change Drive")
        (select_dir)
    )
)


(macro    up_1_dir
    (
        (if (> (strlen current_dir) 3)
            (
                (= new_file "Change Drive UP")
                (select_dir)
            )
        ;else
            (beep)
        )
    )
)


(macro    root_dir
    (
        (if (> (strlen current_dir) 3)
            (
                (= new_file "Change Drive")
                (cd "\\")
                (select_dir)
            )
        ;else
            (beep)
        )
    )
)


(macro    delete_file
    (
        (inq_position line NULL)
        (raise_anchor)
        (top_of_buffer)
        (if (search_fwd "<\\c■")
            (
                (= answer "?")
                (while (&& (!= (upper answer) "Y") (!= (upper answer) "N"))
                    (
                        (if (!= answer "?")
                            (beep)
                        )
                        (= answer "")
                        (get_parm NULL answer "Delete ALL MARKED files \[YyNn\]? " 1)
                        (if (== answer "")
                            (= answer "N")
                        ;else
                            (if (== answer "?")
                                (beep)
                            )
                        )
                    )
                )
                (if (== (upper answer) "Y")
                    (
                        (top_of_buffer)
                        (while (search_fwd "<\\c■")
                            (
                                (= this_line (read))
                                (beginning_of_line)
                                (down)
                                (= new_file (trim (substr this_line 3 8)))
                                (if (search_string "DIR" this_line NULL 0)
                                    (
                                        (if (!= (substr new_file 1 2) "..")
                                            (
                                                (if (!= (substr this_line 12 1) " ")
                                                    (+= new_file (+ "." (trim (substr this_line 12 3))))
                                                )
                                                (error "%s" this_line)
                                                (message "Deleting \"%s\" Directory..." new_file)
                                                (dos (+ "rd " (+ new_file " \>&temp.err")))
                                                (del "temp.err")
                                            )
                                        )
                                    )
                                ;else
                                    (
                                        (+= new_file (+ "." (trim (substr this_line 12 3))))
                                        (message "Deleting \"%s\" from DISK..." new_file)
                                        (if (<= (del new_file) 0)
                                            (
                                                (beep)
                                                (error "Unable to delete \"%s\" - Hit ANY key " new_file)
                                                (while (! (inq_kbd_char)))
                                                (read_char)
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                    ;else
                    (
                        (move_abs line 1)
                          (drop_anchor LINE)
                        (message "%s" current_dir)
                        (return)
                    )
                )
            )
        ;else
            (
                (move_abs line 1)
                  (drop_anchor LINE)
                (= this_line (read))
                (beginning_of_line)
                (= answer "?")
                (while (&& (!= (upper answer) "Y") (!= (upper answer) "N"))
                    (
                        (if (!= answer "?")
                            (beep)
                        )
                        (= answer "")
                        (get_parm NULL answer "Delete HIGHLIGHTED FILE from DISK \[YyNn\]? " 1)
                        (if (== answer "")
                            (= answer "N")
                        ;else
                            (if (== answer "?")
                                (beep)
                            )
                        )
                    )
                )
                (if (== (upper answer) "Y")
                    (
                        (= new_file (trim (substr this_line 3 8)))
                        (if (search_string "DIR" this_line NULL 0)
                            (
                                (if (!= (substr new_file 1 2) "..")
                                    (
                                        (if (!= (substr this_line 12 1)    " ")
                                            (+= new_file (+ "." (trim (substr this_line 12 3))))
                                        )
                                        (message "Deleting \"%s\" Directory..." new_file)
                                          (dos (+ "rd " (+ new_file " \>&tempddir.err")))
                                        (del "tempddir.err")
                                    )
                                )
                            )
                        ;else
                            (
                                (+= new_file (+ "." (trim (substr this_line 12 3))))
                                (message "Deleting \"%s\" from DISK..." new_file)
                                (if (<= (del new_file) 0)
                                    (
                                        (beep)
                                        (error "Unable to delete \"%s\" - Hit ANY key " new_file)
                                        (while (! (inq_kbd_char)))
                                        (read_char)
                                    )
                                )
                            )
                        )
                    )
                    ;else
                    (
                        (message "%s" current_dir)
                        (return)
                    )
                )
            )
        )
        (read_dir)
    )
)


(macro    load_marked
    (
        (inq_position line NULL)
        (= this_line (read 16))
        (raise_anchor)
        (top_of_buffer)
        (if (search_fwd "<\\c■")
            (= new_file "Load Multiple Files")
        ;else
            (
                (if (== "" (substr this_line 16 1))
                    (
                        (= new_file "")
                        (beep)
                        (error "DIRECTORIES may NOT be edited.  Hit ANY key...")
                        (while (! (inq_kbd_char)))
                        (read_char)
                        (message "%s" current_dir)
                        (move_abs line 1)
                        (drop_anchor LINE)
                        (return)
                    )
                ;else
                    (
                        (= new_file (trim (substr this_line 3 8)))
                        (+= new_file (+ "." (trim (substr this_line 12 3))))
                    )
                )
            )
        )
        (exit)
    )
)


(macro    top_of_dir
    (
        (raise_anchor)
        (top_of_buffer)
        (drop_anchor LINE)
    )
)


(macro    end_of_dir
    (
        (raise_anchor)
        (move_abs end_line 1)
        (beginning_of_line)
        (to_bottom)
        (drop_anchor LINE)
    )
)


(macro    pgup_dir
    (
        (extern    screen_down)
        (int    count)

        (raise_anchor)
        (inq_position line NULL)
        (= count rows)
        (-= line count)
        (if (> line    1)
            (while count
                (
                    (screen_down)
                    (-- count)
                )
            )
        ;else
            (
                (top_of_dir)
                (return)
            )
        )
        (move_abs line 1)
        (drop_anchor LINE)
    )
)


(macro    pgdown_dir
    (
        (extern    screen_up)
        (int    count)

        (raise_anchor)
        (inq_position line NULL)
        (= count rows)
        (+= line count)
        (if (<= line end_line)
            (while count
                (
                    (screen_up)
                    (-- count)
                )
            )
        ;else
            (
                (end_of_dir)
                (return)
            )
        )
        (move_abs line 1)
        (drop_anchor LINE)
    )
)


(macro    up_dir
    (
        (raise_anchor)
        (up)
        (drop_anchor LINE)
    )
)


(macro    down_dir
    (
        (inq_position line NULL)
        (if (!= line end_line)
            (
                (raise_anchor)
                (down)
                (drop_anchor LINE)
            )
        )
    )
)


(macro    mark_dir
    (
        (= this_line (read 16))

        (if    (!= (substr  this_line 16 1) "")
            (
                (delete_char)
                (if (search_string "■" this_line NULL 0)
                    (
                        (insert " ")
                    )
                ;else
                    (
                        (insert "■")
                    )
                )
                (beginning_of_line)
            )
        )
    )
)


(macro convert_select
    (
        (int    index_sel)
        (string    temp_char
                temp_sel
        )

        (get_parm 0 select)
        (= index_sel 1)

        (while (<= index_sel (strlen select))
            (
                (= temp_char (substr select index_sel 1))
                (if (index "\@\+\{\}\-\<\%\>\$" temp_char)
                    (+= temp_sel "\\")
                )
                (+= temp_sel temp_char)
                (++ index_sel)
            )
        )

        (if (strlen temp_sel)
            (= temp_sel (+ (+ "■\|  " temp_sel) " @│"))
        ;else
            (= temp_sel "")
        )

        (put_parm 0 temp_sel)
    )
)


(macro select_action
    (
        (int    event_type
                line_no
        )

        (string    button_text
        )

        (get_parm 0 event_type)
        (get_parm 1 line_no)
        (get_parm 2 button_text)

        (switch event_type
            DIALOG_ENTER_FIELD
            (
                (= select "\*.\*")
            )
            DIALOG_EXIT_FIELD
            (
                (= select button_text)
                (put_parm 0 DIALOG_F10)
            )
            DIALOG_ESCAPE
            (
                (= select "")
            )
        )
        (return TRUE)
    )
)


(macro multiple_marks
    (
        (int    line_no
        )

        (raise_anchor)
        (if (== mark_typ SELECT)
             (_process_dialog_box (+ cols 11) 10 (+ cols 28) 8 "Select" "" "select" NULL "select_action")
        ;else
             (_process_dialog_box (+ cols 11) 10 (+ cols 28) 8 "Unselect" "" "select" NULL "select_action")
        )
        (if (!= select "")
            (
                (convert_select select)
                (get_parm 0 select)
                (message "Marking specified files...")
                (inq_position line NULL)
                (= line_no end_line)

                (while line_no
                    (
                        (move_abs line_no 1)
                        (= this_line (read 16))
                        (= new_file (trim (substr this_line 1 10)))
                        (+= new_file (+ "." (trim (substr this_line 12 4))))
                        (if (&& (search_string select new_file) (!= (substr this_line 16 1) ""))
                            (
                                (delete_char)
                                (switch mark_typ
                                    SELECT        (insert "■")
                                    UNSELECT    (insert " ")
                                )
                            )
                        )
                        (-- line_no)
                    )
                )
                (= new_file "")
                (move_abs line 1)
            )
        )
        (drop_anchor LINE)
        (message "%s" current_dir)
        (refresh)
    )
)


(macro select_marks
    (
        (= mark_typ SELECT)
        (multiple_marks)
    )
)


(macro unselect_marks
    (
        (= mark_typ UNSELECT)
        (multiple_marks)
    )
)


(macro    select_dir
    (
        (string    old_dir)

        (= updir FALSE)
        (= this_line (read 16))

        (if (|| (== "" (substr this_line 16 1)) (== (substr new_file 1 12) "Change Drive"))
            (
                (if (|| (search_string ".." this_line NULL 0) (== (substr new_file 1 12) "Change Drive"))
                    (
                        (if (== new_file "Change Drive")
                            (
                                (cd (+ current_drive ":"))
                            )
                        ;else
                            (
                                (cd UP_DIR)
                                (= updir TRUE)
                            )
                        )
                        (= new_file "")
                    )
                ;else
                    (
                        (= new_file (trim (substr this_line 3 8)))
                        (if (!= (substr this_line 12 1) " ")
                            (+= new_file (+ "." (trim (substr this_line 12 3))))
                        )
                        (cd (+ DOWN_DIR new_file))
                        (= new_file "")
                    )
                )

                (raise_anchor)
                (top_of_buffer)
                (drop_anchor LINE)
                (move_abs end_line 1)
                (delete_block)
                (top_of_buffer)
                (refresh)
                (message "Reading disk directory...")
                (dos bdir)
                (= old_dir current_dir)
                (getwd NULL current_dir)
                (= current_dir (upper current_dir))
                (= current_drive (substr current_dir 1 1))
                (read_file bdirfile)
                (up)
                (inq_position end_line NULL)
                (top_of_buffer)

                (if updir
                    (
                        (= updir (strlen current_dir))
                        (if (< updir (strlen old_dir))
                            (
                                (int    dot)

                                (if (> updir 3)
                                    (++ updir)
                                )
                                (++ updir)
                                (= select (upper (substr old_dir updir)))
                                (= dot (index select "."))
                                (if dot
                                     (= select (+ (+ (substr select 1 (- dot 1)) " \+") (substr select (+ dot 1)) ))
                                )
                                (search_fwd select)
                                (beginning_of_line)
                            )
                        )
                        (= updir FALSE)
                    )
                )

                (drop_anchor LINE)
                (message "%s" current_dir)
                (refresh)
            )
        ;else
            (
                (= new_file (trim (substr this_line 3 8)))
                (+= new_file (+ "." (trim (substr this_line 12 3))))
                (exit)
            )
        )
    )
)


(macro set_mode
    (
        (= old_opt bdiropt)
        (push_back (key_to_int bdiropt))
         (_process_dialog_box (- cols 3) 10 (+ cols 44) 8 "Sort DIR by" "" "setmode" NULL "mode_action")
        (if (!= old_opt bdiropt)
            (
                (= bdiropt old_opt)
                (= bdir (+ bdirpgm (+ (+ " \-" bdiropt) (+ " \>&" bdirfile))))
                (read_dir)
            )
        ;else
            (message "%s" current_dir)
        )
    )
)


(macro mode_action
    (
        (int    event_type
                line_no
        )

        (string    button_text
        )

        (get_parm 0 event_type)
        (get_parm 1 line_no)
        (get_parm 2 button_text)

        (switch event_type
            DIALOG_ENTER_LIST
            (
                (= old_opt (substr button_text 1 1))
            )
            DIALOG_ALTER_LIST
            (
                (= old_opt (substr button_text 1 1))
                (put_parm 0 DIALOG_F10)
            )
            DIALOG_ESCAPE
            (
                (= old_opt bdiropt)
            )
        )
        (return TRUE)
    )
)